home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
menuman.zip
/
MENUA-L.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-04-06
|
26KB
|
817 lines
' MENUMAN program for menu making with letters
DECLARE SUB AdBox ()
DECLARE SUB Bordertown ()
DECLARE SUB Disksave ()
DECLARE SUB Killer ()
DECLARE SUB LetterDo ()
DECLARE SUB Letter2 ()
DECLARE SUB Letter3 ()
DECLARE SUB Letter4 ()
DECLARE SUB Letter5 ()
DECLARE SUB Letter6 ()
DECLARE SUB Letter7 ()
DECLARE SUB Letter8 ()
DECLARE SUB Letter9 ()
DECLARE SUB Letter10 ()
DECLARE SUB Letter11 ()
DECLARE SUB Letter12 ()
DECLARE SUB MenuLetter ()
DECLARE SUB Namer ()
DECLARE SUB Opener ()
DECLARE SUB SoLong ()
DECLARE SUB WrongKey ()
DECLARE FUNCTION Handler ()
CLS
DIM sign$(16)
sign$(1) = STRING$(80, 223)
sign$(2) = " ╔═══╗ ╔═══╗"
sign$(3) = " ║ ║ ║ ║"
sign$(4) = " ║ ║ ║ ║"
sign$(5) = " ║ ║ ║ ║"
sign$(6) = " ║ ║ ║ ║"
sign$(7) = " ║ ║ ║ ║"
sign$(8) = " ║ ╚════╝ ║"
sign$(9) = " ║ ║ ╔══════ ╔═╗ ║ ║ ║ ╔══╗ ╔══╗ ╔════╗ ╔═╗ ║"
sign$(10) = " ║ ║ ║ ║ ╚═╗ ║ ║ ║ ║ ║ ║ ║ ║ ║ ║ ╚═╗ ║"
sign$(11) = " ║ ║ ║ ║ ╚═╗ ║ ║ ║ ║ ╚══╝ ║ ║ ║ ║ ╚═╗ ║"
sign$(12) = " ║ ║ ║════ ║ ╚═╗ ║ ║ ║ ║ ║ ║════║ ║ ╚═╗ ║"
sign$(13) = " ║ ║ ║ ║ ╚═║ ║ ║ ║ ║ ║ ║ ║ ╚═║"
sign$(14) = " ║ ║ ║ ║ ║ ║ ║ ║ ║ ║ ║ ║ ║"
sign$(15) = " ║ ║ ╚══════ ║ ║ ╚═══════╝ ║ ║ ║ ║ ║ ║"
sign$(16) = STRING$(80, 220)
FOR SET = 1 TO 16
LOCATE SET + 3, 1: PRINT sign$(SET)
NEXT
LOCATE 7, 30, 0: COLOR 0, 15: PRINT " S E L E C T I O N B Y L E T T E R S ": COLOR 15, 0
SLEEP 20
Opener
Handler:
SELECT CASE ERR
CASE 53
OPEN "TESTMENU.BAS" FOR APPEND AS #1
CLOSE #1
Opener
CASE ELSE
ON ERROR GOTO 0
END SELECT
SUB AdBox
CLS
DIM AD$(17)
LOCATE 2, 20: PRINT STRING$(40, 15)
FOR SIDE = 3 TO 21
LOCATE SIDE, 20: PRINT CHR$(15); SPACE$(38); CHR$(15)
NEXT
LOCATE 22, 20: PRINT STRING$(40, 15)
AD$(1) = " Thanks for using MENUMAN"
AD$(2) = STRING$(35, 32)
AD$(3) = "If MENUMAN has been useful to you,"
AD$(4) = "please send $10 in check or money"
AD$(5) = "order to this address:"
AD$(6) = " Carmen Paone"
AD$(7) = " 1525 Locust St."
AD$(8) = " Reading, Pa."
AD$(9) = " 19604"
AD$(10) = STRING$(35, 32)
AD$(11) = "Please specify the size disk _ "
AD$(12) = "5.25 or 3.5 _ you would like."
AD$(13) = "Registered users of MENUMAN"
AD$(14) = "will receive updates free"
AD$(15) = "of charge. Planned updates:"
AD$(16) = "bounce-bar menus, Lotus-type"
AD$(17) = "menus, F-Key menus and others."
FOR SET = 1 TO 17
LOCATE SET + 3, 23: COLOR 15, 0: PRINT AD$(SET): COLOR 7, 0
NEXT
SLEEP 30
SoLong
END SUB
SUB Bordertown
CLS
PRINT
PRINT SPACE$(23); "BORDER SELECTION SUGGESTIONS"
PRINT
FOR A% = 35 TO 37
PRINT "NUMBER "; A%; " = "; STRING$(7, CHR$(A%)); SPACE$(5);
NEXT
PRINT
FOR B% = 176 TO 178
PRINT "NUMBER "; B%; " = "; STRING$(7, CHR$(B%)); SPACE$(5);
NEXT
PRINT
FOR C% = 219 TO 221
PRINT "NUMBER "; C%; " = "; STRING$(7, CHR$(C%)); SPACE$(5);
NEXT
PRINT
FOR D% = 228 TO 230
PRINT "NUMBER "; D%; " = "; STRING$(7, CHR$(D%)); SPACE$(5);
NEXT
PRINT
FOR E% = 233 TO 235
PRINT "NUMBER "; E%; " = "; STRING$(7, CHR$(E%)); SPACE$(5);
NEXT
PRINT
PRINT
PRINT SPACE$(23); "OTHER BORDER POSSIBILITIES"
PRINT
PRINT "NUMBER 15 = "; STRING$(7, 15); SPACE$(5); "NUMBER 42 = "; STRING$(7, 42); SPACE$(5); "NUMBER 92 = "; STRING$(7, 92)
PRINT
PRINT "NUMBER 127 = "; STRING$(7, 127); SPACE$(5); "NUMBER 153 = "; STRING$(7, 153); SPACE$(5); " NUMBER 242 = "; STRING$(7, 242)
PRINT
PRINT
END SUB
SUB Disksave
OPEN "TESTMENU.BAS" FOR APPEND AS #1
END SUB
SUB Killer
ON ERROR GOTO Handler
KILL "TESTMENU.BAS"
LOCATE 15, 27: COLOR 0, 15: PRINT " TESTMENU.BAS KILLED ": COLOR 15, 0
SLEEP 10
MenuLetter
END SUB
SUB Letter10
Bordertown
INPUT "SELECT A BORDER BY ITS NUMBER "; border%
CLS
LOCATE 5, 1: PRINT STRING$(80, border%)
FOR SIDE = 2 TO 14
PRINT STRING$(5, border%); SPACE$(70); STRING$(5, border%)
NEXT
PRINT STRING$(80, border%)
Disksave
PRINT #1, "Top:"
PRINT #1, "CLS"
PRINT #1, "LOCATE 5, 1: PRINT STRING$(80,"; border%; ")"
PRINT #1, "FOR SIDE = 2 TO 14"
PRINT #1, "PRINT STRING$(5,"; border%; "); SPACE$(70); STRING$(5,"; border%; ")"
PRINT #1, "NEXT"
PRINT #1, "PRINT STRING$(80,"; border%; ")"
CLOSE #1
SLEEP 10
LOCATE 3, 1: LINE INPUT "PICK A TITLE FOR MENU "; title$
SLEEP 5
X = (80 - LEN(title$)) / 2
LOCATE 3, 1: PRINT SPACE$(80);
LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$: COLOR 7, 0
Disksave
PRINT #1, "title$ = "; CHR$(34); title$; CHR$(34)
PRINT #1, "X = (80 - LEN(title$)) / 2"
PRINT #1, "LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$; : COLOR 7, 0"
CLOSE #1
LOCATE 8, 10: INPUT "ENTRY FOR A "; entrya$
LOCATE 8, 45: INPUT "ENTRY FOR B "; entryb$
LOCATE 10, 10: INPUT "ENTRY FOR C "; entryc$
LOCATE 10, 45: INPUT "ENTRY FOR D "; entryd$
LOCATE 12, 10: INPUT "ENTRY FOR E "; entrye$
LOCATE 12, 45: INPUT "ENTRY FOR F "; entryf$
LOCATE 14, 10: INPUT "ENTRY FOR G "; entryg$
LOCATE 14, 45: INPUT "ENTRY FOR H "; entryh$
LOCATE 16, 10: INPUT "ENTRY FOR I "; entryi$
LOCATE 16, 45: INPUT "ENTRY FOR J "; entryj$
Disksave
PRINT #1, "LOCATE 8, 15: PRINT "; CHR$(34); "A } "; entrya$; CHR$(34); "TAB(45)"; CHR$(34); "F } "; entryb$; CHR$(34)
PRINT #1, "LOCATE 10, 15: PRINT "; CHR$(34); "B } "; entryc$; CHR$(34); "TAB(45)"; CHR$(34); "G } "; entryd$; CHR$(34)
PRINT #1, "LOCATE 12, 15: PRINT "; CHR$(34); "C } "; entrye$; CHR$(34); "TAB(45)"; CHR$(34); "H } "; entryf$; CHR$(34)
PRINT #1, "LOCATE 14, 15: PRINT "; CHR$(34); "D } "; entryg$; CHR$(34); "TAB(45)"; CHR$(34); "I } "; entryh$; CHR$(34)
PRINT #1, "LOCATE 16, 15: PRINT "; CHR$(34); "E } "; entryi$; CHR$(34); "TAB(45)"; CHR$(34); "J } "; entryj$; CHR$(34)
LetterDo
FOR number% = 65 TO 74
PRINT #1, "CASE "; number%; ":"
NEXT
WrongKey
PRINT #1, "END SELECT"
CLOSE #1
SLEEP 5
AdBox
END SUB
SUB Letter11
Bordertown
INPUT "SELECT A BORDER BY ITS NUMBER "; border%
CLS
LOCATE 3, 1: PRINT STRING$(80, border%)
FOR SIDE = 2 TO 18
PRINT STRING$(5, border%); SPACE$(70); STRING$(5, border%)
NEXT
PRINT STRING$(80, border%)
Disksave
PRINT #1, "Top:"
PRINT #1, "CLS"
PRINT #1, "LOCATE 3, 1: PRINT STRING$(80,"; border%; ")"
PRINT #1, "FOR SIDE = 2 TO 18"
PRINT #1, "PRINT STRING$(5,"; border%; "); SPACE$(70); STRING$(5,"; border%; ")"
PRINT #1, "NEXT"
PRINT #1, "PRINT STRING$(80,"; border%; ")"
CLOSE #1
SLEEP 10
LOCATE 1, 1: LINE INPUT "PICK A TITLE FOR MENU "; title$
SLEEP 5
X = (80 - LEN(title$)) / 2
LOCATE 1, 1: PRINT SPACE$(80);
LOCATE 1, 1: COLOR 15, 0: PRINT TAB(X); title$: COLOR 7, 0
Disksave
PRINT #1, "title$ = "; CHR$(34); title$; CHR$(34)
PRINT #1, "X = (80 - LEN(title$)) / 2"
PRINT #1, "LOCATE 1, 1: COLOR 15, 0: PRINT TAB(X); title$; : COLOR 7, 0"
CLOSE #1
LOCATE 8, 10: INPUT "ENTRY FOR A "; entrya$
LOCATE 8, 45: INPUT "ENTRY FOR B "; entryb$
LOCATE 10, 10: INPUT "ENTRY FOR C "; entryc$
LOCATE 10, 45: INPUT "ENTRY FOR D "; entryd$
LOCATE 12, 10: INPUT "ENTRY FOR E "; entrye$
LOCATE 12, 45: INPUT "ENTRY FOR F "; entryf$
LOCATE 14, 10: INPUT "ENTRY FOR G "; entryg$
LOCATE 14, 45: INPUT "ENTRY FOR H "; entryh$
LOCATE 16, 10: INPUT "ENTRY FOR I "; entryi$
LOCATE 16, 45: INPUT "ENTRY FOR J "; entryj$
LOCATE 18, 29: INPUT "ENTRY FOR K "; entryk$
Disksave
PRINT #1, "LOCATE 7, 15: PRINT "; CHR$(34); "A } "; entrya$; CHR$(34); "TAB(45)"; CHR$(34); "F } "; entryb$; CHR$(34)
PRINT #1, "LOCATE 9, 15: PRINT "; CHR$(34); "B } "; entryc$; CHR$(34); "TAB(45)"; CHR$(34); "G } "; entryd$; CHR$(34)
PRINT #1, "LOCATE 11, 15: PRINT "; CHR$(34); "C } "; entrye$; CHR$(34); "TAB(45)"; CHR$(34); "H } "; entryf$; CHR$(34)
PRINT #1, "LOCATE 13, 15: PRINT "; CHR$(34); "D } "; entryg$; CHR$(34); "TAB(45)"; CHR$(34); "I } "; entryh$; CHR$(34)
PRINT #1, "LOCATE 15, 15: PRINT "; CHR$(34); "E } "; entryi$; CHR$(34); "TAB(45)"; CHR$(34); "J } "; entryj$; CHR$(34)
PRINT #1, "LOCATE 17, 29: PRINT "; CHR$(34); "K } "; entryk$; CHR$(34)
LetterDo
FOR number% = 65 TO 75
PRINT #1, "CASE "; number%; ":"
NEXT
WrongKey
PRINT #1, "END SELECT"
CLOSE #1
SLEEP 5
AdBox
END SUB
SUB Letter12
Bordertown
INPUT "SELECT A BORDER BY ITS NUMBER "; border%
CLS
LOCATE 3, 1: PRINT STRING$(80, border%)
FOR SIDE = 2 TO 18
PRINT STRING$(5, border%); SPACE$(70); STRING$(5, border%)
NEXT
PRINT STRING$(80, border%)
Disksave
PRINT #1, "Top:"
PRINT #1, "CLS"
PRINT #1, "LOCATE 3, 1: PRINT STRING$(80,"; border%; ")"
PRINT #1, "FOR SIDE = 2 TO 18"
PRINT #1, "PRINT STRING$(5,"; border%; "); SPACE$(70); STRING$(5,"; border%; ")"
PRINT #1, "NEXT"
PRINT #1, "PRINT STRING$(80,"; border%; ")"
CLOSE #1
SLEEP 10
LOCATE 1, 1: LINE INPUT "PICK A TITLE FOR MENU "; title$
SLEEP 5
X = (80 - LEN(title$)) / 2
LOCATE 1, 1: PRINT SPACE$(80);
LOCATE 1, 1: COLOR 15, 0: PRINT TAB(X); title$: COLOR 7, 0
Disksave
PRINT #1, "title$ = "; CHR$(34); title$; CHR$(34)
PRINT #1, "X = (80 - LEN(title$)) / 2"
PRINT #1, "LOCATE 1, 1: COLOR 15, 0: PRINT TAB(X); title$; : COLOR 7, 0"
CLOSE #1
LOCATE 8, 10: INPUT "ENTRY FOR A "; entrya$
LOCATE 8, 45: INPUT "ENTRY FOR B "; entryb$
LOCATE 10, 10: INPUT "ENTRY FOR C "; entryc$
LOCATE 10, 45: INPUT "ENTRY FOR D "; entryd$
LOCATE 12, 10: INPUT "ENTRY FOR E "; entrye$
LOCATE 12, 45: INPUT "ENTRY FOR F "; entryf$
LOCATE 14, 10: INPUT "ENTRY FOR G "; entryg$
LOCATE 14, 45: INPUT "ENTRY FOR H "; entryh$
LOCATE 16, 10: INPUT "ENTRY FOR I "; entryi$
LOCATE 16, 45: INPUT "ENTRY FOR J "; entryj$
LOCATE 18, 10: INPUT "ENTRY FOR K "; entryk$
LOCATE 18, 45: INPUT "ENTRY FOR L "; entryl$
Disksave
PRINT #1, "LOCATE 7, 15: PRINT "; CHR$(34); "A } "; entrya$; CHR$(34); "TAB(45)"; CHR$(34); "G } "; entryb$; CHR$(34)
PRINT #1, "LOCATE 9, 15: PRINT "; CHR$(34); "B } "; entryc$; CHR$(34); "TAB(45)"; CHR$(34); "H } "; entryd$; CHR$(34)
PRINT #1, "LOCATE 11, 15: PRINT "; CHR$(34); "C } "; entrye$; CHR$(34); "TAB(45)"; CHR$(34); "I } "; entryf$; CHR$(34)
PRINT #1, "LOCATE 13, 15: PRINT "; CHR$(34); "D } "; entryg$; CHR$(34); "TAB(45)"; CHR$(34); "J } "; entryh$; CHR$(34)
PRINT #1, "LOCATE 15, 15: PRINT "; CHR$(34); "E } "; entryi$; CHR$(34); "TAB(45)"; CHR$(34); "K } "; entryj$; CHR$(34)
PRINT #1, "LOCATE 17, 15: PRINT "; CHR$(34); "F } "; entryk$; CHR$(34); "TAB(45)"; CHR$(34); "L } "; entryl$; CHR$(34)
LetterDo
FOR number% = 65 TO 76
PRINT #1, "CASE "; number%; ":"
NEXT
WrongKey
PRINT #1, "END SELECT"
CLOSE #1
SLEEP 5
AdBox
END SUB
SUB Letter2
Bordertown
INPUT "SELECT A BORDER BY ITS NUMBER "; border%
CLS
LOCATE 6, 1: PRINT STRING$(80, border%)
FOR SIDE = 2 TO 4
PRINT STRING$(5, border%); SPACE$(70); STRING$(5, border%)
NEXT
PRINT STRING$(80, border%)
Disksave
PRINT #1, "Top:"
PRINT #1, "CLS"
PRINT #1, "LOCATE 6, 1: PRINT STRING$(80,"; border%; ")"
PRINT #1, "FOR SIDE = 2 TO 4"
PRINT #1, "PRINT STRING$(5,"; border%; "); SPACE$(70); STRING$(5,"; border%; ")"
PRINT #1, "NEXT"
PRINT #1, "PRINT STRING$(80,"; border%; ")"
CLOSE #1
SLEEP 10
LOCATE 3, 1: LINE INPUT "PICK A TITLE FOR MENU "; title$
SLEEP 5
X = (80 - LEN(title$)) / 2
LOCATE 3, 1: PRINT SPACE$(80);
LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$: COLOR 7, 0
Disksave
PRINT #1, "title$ = "; CHR$(34); title$; CHR$(34)
PRINT #1, "X = (80 - LEN(title$)) / 2"
PRINT #1, "LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$; : COLOR 7, 0"
CLOSE #1
LOCATE 8, 10: INPUT "ENTRY FOR A "; entrya$
LOCATE 8, 45: INPUT "ENTRY FOR B "; entryb$
Disksave
PRINT #1, "LOCATE 8, 10: PRINT "; CHR$(34); "A } "; entrya$; CHR$(34); "TAB(45)"; CHR$(34); "B } "; entryb$; CHR$(34)
LetterDo
FOR number% = 65 TO 66
PRINT #1, "CASE "; number%; ":"
NEXT
WrongKey
PRINT #1, "END SELECT"
CLOSE #1
SLEEP 5
AdBox
END SUB
SUB Letter3
Bordertown
INPUT "SELECT A BORDER BY ITS NUMBER "; border%
CLS
LOCATE 6, 1: PRINT STRING$(80, border%)
FOR SIDE = 2 TO 6
PRINT STRING$(5, border%); SPACE$(70); STRING$(5, border%)
NEXT
PRINT STRING$(80, border%)
Disksave
PRINT #1, "Top:"
PRINT #1, "CLS"
PRINT #1, "LOCATE 6, 1: PRINT STRING$(80,"; border%; ")"
PRINT #1, "FOR SIDE = 2 TO 6"
PRINT #1, "PRINT STRING$(5,"; border%; "); SPACE$(70); STRING$(5,"; border%; ")"
PRINT #1, "NEXT"
PRINT #1, "PRINT STRING$(80,"; border%; ")"
CLOSE #1
SLEEP 10
LOCATE 3, 1: LINE INPUT "PICK A TITLE FOR MENU "; title$
SLEEP 5
X = (80 - LEN(title$)) / 2
LOCATE 3, 1: PRINT SPACE$(80);
LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$: COLOR 7, 0
Disksave
PRINT #1, "title$ = "; CHR$(34); title$; CHR$(34)
PRINT #1, "X = (80 - LEN(title$)) / 2"
PRINT #1, "LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$; : COLOR 7, 0"
CLOSE #1
LOCATE 8, 10: INPUT "ENTRY FOR A "; entrya$
LOCATE 8, 45: INPUT "ENTRY FOR B "; entryb$
LOCATE 10, 29: INPUT "ENTRY FOR C "; entryc$
Disksave
PRINT #1, "LOCATE 8, 10: PRINT "; CHR$(34); "A } "; entrya$; CHR$(34); "TAB(45)"; CHR$(34); "B } "; entryb$; CHR$(34)
PRINT #1, "LOCATE 10, 29: PRINT "; CHR$(34); "C } "; entryc$; CHR$(34)
LetterDo
FOR number% = 65 TO 67
PRINT #1, "CASE "; number%; ":"
NEXT
WrongKey
PRINT #1, "END SELECT"
CLOSE #1
SLEEP 5
AdBox
END SUB
SUB Letter4
Bordertown
INPUT "SELECT A BORDER BY ITS NUMBER "; border%
CLS
LOCATE 6, 1: PRINT STRING$(80, border%)
FOR SIDE = 2 TO 6
PRINT STRING$(5, border%); SPACE$(70); STRING$(5, border%)
NEXT
PRINT STRING$(80, border%)
Disksave
PRINT #1, "Top:"
PRINT #1, "CLS"
PRINT #1, "LOCATE 6, 1: PRINT STRING$(80,"; border%; ")"
PRINT #1, "FOR SIDE = 2 TO 6"
PRINT #1, "PRINT STRING$(5,"; border%; "); SPACE$(70); STRING$(5,"; border%; ")"
PRINT #1, "NEXT"
PRINT #1, "PRINT STRING$(80,"; border%; ")"
CLOSE #1
SLEEP 10
LOCATE 3, 1: LINE INPUT "PICK A TITLE FOR MENU "; title$
SLEEP 5
X = (80 - LEN(title$)) / 2
LOCATE 3, 1: PRINT SPACE$(80);
LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$: COLOR 7, 0
Disksave
PRINT #1, "title$ = "; CHR$(34); title$; CHR$(34)
PRINT #1, "X = (80 - LEN(title$)) / 2"
PRINT #1, "LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$; : COLOR 7, 0"
CLOSE #1
LOCATE 8, 10: INPUT "ENTRY FOR A "; entrya$
LOCATE 8, 45: INPUT "ENTRY FOR B "; entryb$
LOCATE 10, 10: INPUT "ENTRY FOR C "; entryc$
LOCATE 10, 45: INPUT "ENTRY FOR D "; entryd$
Disksave
PRINT #1, "LOCATE 8, 15: PRINT "; CHR$(34); "A } "; entrya$; CHR$(34); "TAB(45)"; CHR$(34); "C } "; entryb$; CHR$(34)
PRINT #1, "LOCATE 10, 15: PRINT "; CHR$(34); "B } "; entryc$; CHR$(34); "TAB(45)"; CHR$(34); "D } "; entryd$; CHR$(34)
LetterDo
FOR number% = 65 TO 68
PRINT #1, "CASE "; number%; ":"
NEXT
WrongKey
PRINT #1, "END SELECT"
CLOSE #1
SLEEP 5
AdBox
END SUB
SUB Letter5
Bordertown
INPUT "SELECT A BORDER BY ITS NUMBER "; border%
CLS
LOCATE 6, 1: PRINT STRING$(80, border%)
FOR SIDE = 2 TO 8
PRINT STRING$(5, border%); SPACE$(70); STRING$(5, border%)
NEXT
PRINT STRING$(80, border%)
Disksave
PRINT #1, "Top:"
PRINT #1, "CLS"
PRINT #1, "LOCATE 6, 1: PRINT STRING$(80,"; border%; ")"
PRINT #1, "FOR SIDE = 2 TO 8"
PRINT #1, "PRINT STRING$(5,"; border%; "); SPACE$(70); STRING$(5,"; border%; ")"
PRINT #1, "NEXT"
PRINT #1, "PRINT STRING$(80,"; border%; ")"
CLOSE #1
SLEEP 10
LOCATE 3, 1: LINE INPUT "PICK A TITLE FOR MENU "; title$
SLEEP 5
X = (80 - LEN(title$)) / 2
LOCATE 3, 1: PRINT SPACE$(80);
LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$: COLOR 7, 0
Disksave
PRINT #1, "title$ = "; CHR$(34); title$; CHR$(34)
PRINT #1, "X = (80 - LEN(title$)) / 2"
PRINT #1, "LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$; : COLOR 7, 0"
CLOSE #1
LOCATE 8, 10: INPUT "ENTRY FOR A "; entrya$
LOCATE 8, 45: INPUT "ENTRY FOR B "; entryb$
LOCATE 10, 10: INPUT "ENTRY FOR C "; entryc$
LOCATE 10, 45: INPUT "ENTRY FOR D "; entryd$
LOCATE 12, 29: INPUT "ENTRY FOR E "; entrye$
Disksave
PRINT #1, "LOCATE 8, 15: PRINT "; CHR$(34); "A } "; entrya$; CHR$(34); "TAB(45)"; CHR$(34); "C } "; entryb$; CHR$(34)
PRINT #1, "LOCATE 10, 15: PRINT "; CHR$(34); "B } "; entryc$; CHR$(34); "TAB(45)"; CHR$(34); "D } "; entryd$; CHR$(34)
PRINT #1, "LOCATE 12, 29: PRINT "; CHR$(34); "E } "; entrye$; CHR$(34)
LetterDo
FOR number% = 65 TO 69
PRINT #1, "CASE "; number%; ":"
NEXT
WrongKey
PRINT #1, "END SELECT"
CLOSE #1
SLEEP 5
AdBox
END SUB
SUB Letter6
Bordertown
INPUT "SELECT A BORDER BY ITS NUMBER "; border%
CLS
LOCATE 6, 1: PRINT STRING$(80, border%)
FOR SIDE = 2 TO 8
PRINT STRING$(5, border%); SPACE$(70); STRING$(5, border%)
NEXT
PRINT STRING$(80, border%)
Disksave
PRINT #1, "Top:"
PRINT #1, "CLS"
PRINT #1, "LOCATE 6, 1: PRINT STRING$(80,"; border%; ")"
PRINT #1, "FOR SIDE = 2 TO 8"
PRINT #1, "PRINT STRING$(5,"; border%; "); SPACE$(70); STRING$(5,"; border%; ")"
PRINT #1, "NEXT"
PRINT #1, "PRINT STRING$(80,"; border%; ")"
CLOSE #1
SLEEP 10
LOCATE 3, 1: LINE INPUT "PICK A TITLE FOR MENU "; title$
SLEEP 5
X = (80 - LEN(title$)) / 2
LOCATE 3, 1: PRINT SPACE$(80);
LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$: COLOR 7, 0
Disksave
PRINT #1, "title$ = "; CHR$(34); title$; CHR$(34)
PRINT #1, "X = (80 - LEN(title$)) / 2"
PRINT #1, "LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$; : COLOR 7, 0"
CLOSE #1
LOCATE 8, 10: INPUT "ENTRY FOR A "; entrya$
LOCATE 8, 45: INPUT "ENTRY FOR B "; entryb$
LOCATE 10, 10: INPUT "ENTRY FOR C "; entryc$
LOCATE 10, 45: INPUT "ENTRY FOR D "; entryd$
LOCATE 12, 10: INPUT "ENTRY FOR E "; entrye$
LOCATE 12, 45: INPUT "ENTRY FOR F "; entryf$
Disksave
PRINT #1, "LOCATE 8, 15: PRINT "; CHR$(34); "A } "; entrya$; CHR$(34); "TAB(45)"; CHR$(34); "D } "; entryb$; CHR$(34)
PRINT #1, "LOCATE 10, 15: PRINT "; CHR$(34); "B } "; entryc$; CHR$(34); "TAB(45)"; CHR$(34); "E } "; entryd$; CHR$(34)
PRINT #1, "LOCATE 12, 15: PRINT "; CHR$(34); "C } "; entrye$; CHR$(34); "TAB(45)"; CHR$(34); "F } "; entryf$; CHR$(34)
LetterDo
FOR number% = 65 TO 70
PRINT #1, "CASE "; number%; ":"
NEXT
WrongKey
PRINT #1, "END SELECT"
CLOSE #1
SLEEP 5
AdBox
END SUB
SUB Letter7
Bordertown
INPUT "SELECT A BORDER BY ITS NUMBER "; border%
CLS
LOCATE 6, 1: PRINT STRING$(80, border%)
FOR SIDE = 2 TO 10
PRINT STRING$(5, border%); SPACE$(70); STRING$(5, border%)
NEXT
PRINT STRING$(80, border%)
Disksave
PRINT #1, "Top:"
PRINT #1, "CLS"
PRINT #1, "LOCATE 6, 1: PRINT STRING$(80,"; border%; ")"
PRINT #1, "FOR SIDE = 2 TO 10"
PRINT #1, "PRINT STRING$(5,"; border%; "); SPACE$(70); STRING$(5,"; border%; ")"
PRINT #1, "NEXT"
PRINT #1, "PRINT STRING$(80,"; border%; ")"
CLOSE #1
SLEEP 10
LOCATE 3, 1: LINE INPUT "PICK A TITLE FOR MENU "; title$
SLEEP 5
X = (80 - LEN(title$)) / 2
LOCATE 3, 1: PRINT SPACE$(80);
LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$: COLOR 7, 0
Disksave
PRINT #1, "title$ = "; CHR$(34); title$; CHR$(34)
PRINT #1, "X = (80 - LEN(title$)) / 2"
PRINT #1, "LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$; : COLOR 7, 0"
CLOSE #1
LOCATE 8, 10: INPUT "ENTRY FOR A "; entrya$
LOCATE 8, 45: INPUT "ENTRY FOR B "; entryb$
LOCATE 10, 10: INPUT "ENTRY FOR C "; entryc$
LOCATE 10, 45: INPUT "ENTRY FOR D "; entryd$
LOCATE 12, 10: INPUT "ENTRY FOR E "; entrye$
LOCATE 12, 45: INPUT "ENTRY FOR F "; entryf$
LOCATE 14, 29: INPUT "ENTRY FOR G "; entryg$
Disksave
PRINT #1, "LOCATE 8, 15: PRINT "; CHR$(34); "A } "; entrya$; CHR$(34); "TAB(45)"; CHR$(34); "D } "; entryb$; CHR$(34)
PRINT #1, "LOCATE 10, 15: PRINT "; CHR$(34); "B } "; entryc$; CHR$(34); "TAB(45)"; CHR$(34); "E } "; entryd$; CHR$(34)
PRINT #1, "LOCATE 12, 15: PRINT "; CHR$(34); "C } "; entrye$; CHR$(34); "TAB(45)"; CHR$(34); "F } "; entryf$; CHR$(34)
PRINT #1, "LOCATE 14, 29: PRINT "; CHR$(34); "G } "; entryg$; CHR$(34)
LetterDo
FOR number% = 65 TO 71
PRINT #1, "CASE "; number%; ":"
NEXT
WrongKey
PRINT #1, "END SELECT"
CLOSE #1
SLEEP 5
AdBox
END SUB
SUB Letter8
Bordertown
INPUT "SELECT A BORDER BY ITS NUMBER "; border%
CLS
LOCATE 6, 1: PRINT STRING$(80, border%)
FOR SIDE = 2 TO 10
PRINT STRING$(5, border%); SPACE$(70); STRING$(5, border%)
NEXT
PRINT STRING$(80, border%)
Disksave
PRINT #1, "Top:"
PRINT #1, "CLS"
PRINT #1, "LOCATE 6, 1: PRINT STRING$(80,"; border%; ")"
PRINT #1, "FOR SIDE = 2 TO 10"
PRINT #1, "PRINT STRING$(5,"; border%; "); SPACE$(70); STRING$(5,"; border%; ")"
PRINT #1, "NEXT"
PRINT #1, "PRINT STRING$(80,"; border%; ")"
CLOSE #1
SLEEP 10
LOCATE 3, 1: LINE INPUT "PICK A TITLE FOR MENU "; title$
SLEEP 5
X = (80 - LEN(title$)) / 2
LOCATE 3, 1: PRINT SPACE$(80);
LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$: COLOR 7, 0
Disksave
PRINT #1, "title$ = "; CHR$(34); title$; CHR$(34)
PRINT #1, "X = (80 - LEN(title$)) / 2"
PRINT #1, "LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$; : COLOR 7, 0"
CLOSE #1
LOCATE 8, 10: INPUT "ENTRY FOR A "; entrya$
LOCATE 8, 45: INPUT "ENTRY FOR B "; entryb$
LOCATE 10, 10: INPUT "ENTRY FOR C "; entryc$
LOCATE 10, 45: INPUT "ENTRY FOR D "; entryd$
LOCATE 12, 10: INPUT "ENTRY FOR E "; entrye$
LOCATE 12, 45: INPUT "ENTRY FOR F "; entryf$
LOCATE 14, 10: INPUT "ENTRY FOR G "; entryg$
LOCATE 14, 45: INPUT "ENTRY FOR H "; entryh$
Disksave
PRINT #1, "LOCATE 8, 15: PRINT "; CHR$(34); "A } "; entrya$; CHR$(34); "TAB(45)"; CHR$(34); "E } "; entryb$; CHR$(34)
PRINT #1, "LOCATE 10, 15: PRINT "; CHR$(34); "B } "; entryc$; CHR$(34); "TAB(45)"; CHR$(34); "F } "; entryd$; CHR$(34)
PRINT #1, "LOCATE 12, 15: PRINT "; CHR$(34); "C } "; entrye$; CHR$(34); "TAB(45)"; CHR$(34); "G } "; entryf$; CHR$(34)
PRINT #1, "LOCATE 14, 15: PRINT "; CHR$(34); "D } "; entryg$; CHR$(34); "TAB(45)"; CHR$(34); "H } "; entryh$; CHR$(34)
LetterDo
FOR number% = 65 TO 72
PRINT #1, "CASE "; number%; ":"
NEXT
WrongKey
PRINT #1, "END SELECT"
CLOSE #1
SLEEP 5
AdBox
END SUB
SUB Letter9
Bordertown
INPUT "SELECT A BORDER BY ITS NUMBER "; border%
CLS
LOCATE 5, 1: PRINT STRING$(80, border%)
FOR SIDE = 2 TO 14
PRINT STRING$(5, border%); SPACE$(70); STRING$(5, border%)
NEXT
PRINT STRING$(80, border%)
Disksave
PRINT #1, "Top:"
PRINT #1, "CLS"
PRINT #1, "LOCATE 5, 1: PRINT STRING$(80,"; border%; ")"
PRINT #1, "FOR SIDE = 2 TO 14"
PRINT #1, "PRINT STRING$(5,"; border%; "); SPACE$(70); STRING$(5,"; border%; ")"
PRINT #1, "NEXT"
PRINT #1, "PRINT STRING$(80,"; border%; ")"
CLOSE #1
SLEEP 10
LOCATE 3, 1: LINE INPUT "PICK A TITLE FOR MENU "; title$
SLEEP 5
X = (80 - LEN(title$)) / 2
LOCATE 3, 1: PRINT SPACE$(80);
LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$: COLOR 7, 0
Disksave
PRINT #1, "title$ = "; CHR$(34); title$; CHR$(34)
PRINT #1, "X = (80 - LEN(title$)) / 2"
PRINT #1, "LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$; : COLOR 7, 0"
CLOSE #1
LOCATE 8, 10: INPUT "ENTRY FOR A "; entrya$
LOCATE 8, 45: INPUT "ENTRY FOR B "; entryb$
LOCATE 10, 10: INPUT "ENTRY FOR C "; entryc$
LOCATE 10, 45: INPUT "ENTRY FOR D "; entryd$
LOCATE 12, 10: INPUT "ENTRY FOR E "; entrye$
LOCATE 12, 45: INPUT "ENTRY FOR F "; entryf$
LOCATE 14, 10: INPUT "ENTRY FOR G "; entryg$
LOCATE 14, 45: INPUT "ENTRY FOR H "; entryh$
LOCATE 16, 29: INPUT "ENTRY FOR I "; entryi$
Disksave
PRINT #1, "LOCATE 8, 15: PRINT "; CHR$(34); "A } "; entrya$; CHR$(34); "TAB(45)"; CHR$(34); "E } "; entryb$; CHR$(34)
PRINT #1, "LOCATE 10, 15: PRINT "; CHR$(34); "B } "; entryc$; CHR$(34); "TAB(45)"; CHR$(34); "F } "; entryd$; CHR$(34)
PRINT #1, "LOCATE 12, 15: PRINT "; CHR$(34); "C } "; entrye$; CHR$(34); "TAB(45)"; CHR$(34); "G } "; entryf$; CHR$(34)
PRINT #1, "LOCATE 14, 15: PRINT "; CHR$(34); "D } "; entryg$; CHR$(34); "TAB(45)"; CHR$(34); "H } "; entryh$; CHR$(34)
PRINT #1, "LOCATE 16, 29: PRINT "; CHR$(34); "I } "; entryi$; CHR$(34); ""
LetterDo
FOR number% = 65 TO 73
PRINT #1, "CASE "; number%; ":"
NEXT
WrongKey
PRINT #1, "END SELECT"
CLOSE #1
SLEEP 5
AdBox
END SUB
SUB LetterDo
PRINT #1, "DO: Choice$ = INKEY$"
PRINT #1, "LOOP WHILE Choice$ ="; CHR$(34); CHR$(34)
PRINT #1, "Choice$ = UCASE$(Choice$)"
PRINT #1, "SELECT CASE ASC(Choice$)"
END SUB
SUB MenuLetter
LOCATE 17, 20: INPUT "HOW MANY MENU ITEMS (LIMIT: 2 TO 12) "; menuitem$
IF menuitem$ = "2" THEN
Letter2
ELSEIF menuitem$ = "3" THEN
Letter3
ELSEIF menuitem$ = "4" THEN
Letter4
ELSEIF menuitem$ = "5" THEN
Letter5
ELSEIF menuitem$ = "6" THEN
Letter6
ELSEIF menuitem$ = "7" THEN
Letter7
ELSEIF menuitem$ = "8" THEN
Letter8
ELSEIF menuitem$ = "9" THEN
Letter9
ELSEIF menuitem$ = "10" THEN
Letter10
ELSEIF menuitem$ = "11" THEN
Letter11
ELSEIF menuitem$ = "12" THEN
Letter12
END IF
END SUB
SUB Namer
CLS
ON ERROR GOTO Handler
LOCATE 10, 20: LINE INPUT "NEW NAME FOR TESTMENU.BAS: "; Newname$
NAME "TESTMENU.BAS" AS Newname$
LOCATE 12, 20: PRINT " TESTMENU.BAS RENAMED AS "; Newname$
SLEEP 10
Opener
END SUB
SUB Opener
Top:
CLS
LOCATE 6, 1: PRINT STRING$(80, 92)
FOR SIDE = 2 TO 6
PRINT STRING$(5, 92); SPACE$(70); STRING$(5, 92)
NEXT
PRINT STRING$(80, 92)
title$ = "M E N U M A N O P T I O N S"
X = (80 - LEN(title$)) / 2
LOCATE 3, 1: COLOR 15, 0: PRINT TAB(X); title$; : COLOR 7, 0
LOCATE 8, 15: PRINT "A } KILL TESTMENU.BAS"; TAB(45); "C } START MENUMAN"
LOCATE 10, 15: PRINT "B } RENAME TESTMENU.BAS"; TAB(45); "D } EXIT MENUMAN"
DO: Choice$ = INKEY$
LOOP WHILE Choice$ = ""
Choice$ = UCASE$(Choice$)
SELECT CASE ASC(Choice$)
CASE 65: Killer
CASE 66: Namer
CASE 67: MenuLetter
CASE 68: SoLong
CASE ELSE
LOCATE 23, 23: COLOR 15, 0: PRINT " WRONG KEY PRESSED -- TRY AGAIN ": COLOR 7, 0
SLEEP 3
GOTO Top
END SELECT
END SUB
SUB SoLong
CLS
SYSTEM
END SUB
SUB WrongKey
PRINT #1, "CASE ELSE"
PRINT #1, "LOCATE 23, 23: COLOR 15, 0: PRINT "; CHR$(34); " WRONG KEY PRESSED -- TRY AGAIN "; CHR$(34); ": COLOR 7, 0"
PRINT #1, "SLEEP 3"
PRINT #1, "GOTO Top"
END SUB